home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / VBASIC / LEDVB25.ZIP / DELPHI.ZIP / UNIT1.~PA < prev    next >
Encoding:
Text File  |  1996-01-14  |  1.3 KB  |  77 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, Menus, StdCtrls, VBXCtrl, Led25;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     MainMenu1: TMainMenu;
  12.     Exit1: TMenuItem;
  13.     LED1: TLED;
  14.     Label1: TLabel;
  15.     Label2: TLabel;
  16.     Edit1: TEdit;
  17.     Label3: TLabel;
  18.     LED3: TLED;
  19.     Label4: TLabel;
  20.     Label5: TLabel;
  21.     LED2: TLED;
  22.     procedure Exit1Click(Sender: TObject);
  23.     procedure FormShow(Sender: TObject);
  24.     procedure Edit1Change(Sender: TObject);
  25.     procedure LED3Click(Sender: TObject);
  26.   private
  27.     { Private declarations }
  28.   public
  29.     { Public declarations }
  30.   end;
  31.  
  32. var
  33.   Form1: TForm1;
  34.   S: String[15];
  35.   I, Code: Integer;
  36.  
  37. implementation
  38.  
  39. {$R *.DFM}
  40.  
  41. procedure TForm1.Exit1Click(Sender: TObject);
  42. begin
  43.      Halt;
  44. end;
  45.  
  46. procedure TForm1.FormShow(Sender: TObject);
  47. begin
  48.  
  49.      LED1.value := 12;
  50.      LED2.value := 4;
  51.      LED2.maxdecay := True ;
  52.      LED2.decayrate :=200 ;
  53.      LED3.value := 4;
  54.  
  55.      Str(LED3.Value, S);
  56.      Edit1.text := S;
  57.  
  58. end;
  59.  
  60. procedure TForm1.Edit1Change(Sender: TObject);
  61. begin
  62.  
  63.      Val(Edit1.Text, I, Code);
  64.      LED3.value := I;
  65.  
  66. end;
  67.  
  68. procedure TForm1.LED3Click(Sender: TObject);
  69. begin
  70.  
  71.      Str(LED3.Value, S);
  72.      Edit1.text := S;
  73.  
  74. end;
  75.  
  76. end.
  77.